home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Essentials / Developer Essentials Nov 90 / Apple II / Apple.II.partition / Tools / DTS.Samples / SC17Darts / Darts.p / UEvent.p < prev    next >
Encoding:
Text File  |  1990-06-25  |  876 b   |  52 lines  |  [TEXT/pdos]
  1. {**********************************************************************
  2. {*
  3. {* Darts uEvent -- Version 3.0  (interface)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1990
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the interface to the code which implements the 
  12. {* main event loop used by the program.
  13. {*
  14. {**********************************************************************}
  15.  
  16. UNIT uEvent;
  17.  
  18. INTERFACE
  19.  
  20. USES
  21.        types,
  22.        locator,
  23.        memory,
  24.        quickdraw,
  25.        events,
  26.        intmath,
  27.        controls,
  28.        windows,
  29.        dialogs,
  30.        menus,
  31.        stdfile,
  32.        gsos,
  33.        resources,
  34.        lists,
  35.  
  36.        uGlobals,
  37.        uUtils,
  38.        uWindow,
  39.        uMenu;
  40.  
  41.  
  42.  
  43. procedure MainEvent;   {Main event handling loop which repeats until Quit}
  44.  
  45.  
  46.  
  47. IMPLEMENTATION
  48.  
  49. {$i uEvent.inc.p }
  50.  
  51. END.
  52.